www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminKernel\D_asp_code_str_for_complie_b.asp

    <%
'**************************************************************
' 新 动 软 网 站 管 理系统
' 系统作者: 阮 丁 远(网名：天 下 程  序)
' Copyright (C)  新 动 软 网站 管 理 系 统 版 权 所有
'**************************************************************
%>
$$xxxx_d_soft_complie$$hhks$<%
CurrentPage$$xxxx_d_soft_complie$$rnd$=replacebadchar(request("page$$xxxx_d_soft_complie$$rnd$"))
if CurrentPage$$xxxx_d_soft_complie$$rnd$="" then
CurrentPage$$xxxx_d_soft_complie$$rnd$=1
else if not IsNumeric(CurrentPage$$xxxx_d_soft_complie$$rnd$) then
CurrentPage$$xxxx_d_soft_complie$$rnd$=1
else if int(CurrentPage$$xxxx_d_soft_complie$$rnd$)<=0 then
CurrentPage$$xxxx_d_soft_complie$$rnd$=1
else
CurrentPage$$xxxx_d_soft_complie$$rnd$=replaceBadchar(request("page$$xxxx_d_soft_complie$$rnd$"))
end if
end if
end if
yyyy1=$$xxxx_d_soft_complie$$yyyy$

sql="$$xxxx_d_soft_complie$$sql$"
%>
$$xxxx_d_soft_complie$$run_sql$
<%
maxperpage$$xxxx_d_soft_complie$$rnd$=$$xxxx_d_soft_complie$$per$
xxxx1=clng($$xxxx_d_soft_complie$$per$/yyyy1)
if ($$xxxx_d_soft_complie$$per$ mod yyyy1)<>0 then
xxxx1=xxxx1+1
end if
'获取自身文件名
 aryxx     =split(Request.ServerVariables("SCRIPT_NAME"),"/")   
 fileNamexx   =   aryxx(ubound(aryxx))
strFileName=fileNamexx
set $$xxxx_d_soft_complie$$rs_x$=server.CreateObject("adodb.recordset")
$$xxxx_d_soft_complie$$rs_x$.open sql,$$xxxx_d_soft_complie$$conn$,1,1
 if not $$xxxx_d_soft_complie$$rs_x$.eof then
$$xxxx_d_soft_complie$$rs_x$.pagesize=MaxPerpage$$xxxx_d_soft_complie$$rnd$
totalnumber$$xxxx_d_soft_complie$$rnd$=$$xxxx_d_soft_complie$$rs_x$.recordcount
if totalnumber$$xxxx_d_soft_complie$$rnd$ mod maxperpage$$xxxx_d_soft_complie$$rnd$=0 then
MaxPage= totalnumber$$xxxx_d_soft_complie$$rnd$ \ MaxPerpage$$xxxx_d_soft_complie$$rnd$
else
MaxPage= totalnumber$$xxxx_d_soft_complie$$rnd$ \ MaxPerpage$$xxxx_d_soft_complie$$rnd$+1
end if
if int(CurrentPage$$xxxx_d_soft_complie$$rnd$)>int(MaxPage) then
CurrentPage$$xxxx_d_soft_complie$$rnd$=MaxPage
else
CurrentPage$$xxxx_d_soft_complie$$rnd$=CurrentPage$$xxxx_d_soft_complie$$rnd$
end if
$$xxxx_d_soft_complie$$rs_x$.absolutepage=CurrentPage$$xxxx_d_soft_complie$$rnd$
for ni$$xxxx_d_soft_complie$$rnd$=1 to xxxx1
if $$xxxx_d_soft_complie$$rs_x$.eof then exit for
%>$$xxxx_d_soft_complie$$run1_asp$<%%>$$xxxx_d_soft_complie$$di1_ks_html$<%for bj$$xxxx_d_soft_complie$$rnd$=1 to yyyy1
if $$xxxx_d_soft_complie$$rs_x$.eof then exit for
%>$$xxxx_d_soft_complie$$run2_asp$<%
%>$$xxxx_d_soft_complie$$di2_ks_html$$$xxxx_d_soft_complie$$zhengwen$$$xxxx_d_soft_complie$$di2_jieshu_html$<%
$$xxxx_d_soft_complie$$rs_x$.movenext
next
%>$$xxxx_d_soft_complie$$di1_jieshu_html$<%next
%>  
<%
else
%>
<%=nd_sys_nocontent_msg_x_b%><%nd_sys_nocontent_msg_x_b=""%>
<%end if
%>
<%if $$xxxx_d_soft_complie$$iffen$=1 then %>
<tr>
<td  colspan="7" align="center" height="27" >
<%
call showpage$$xxxx_d_soft_complie$$rnd$(strFileName,totalnumber$$xxxx_d_soft_complie$$rnd$,MaxPerPage$$xxxx_d_soft_complie$$rnd$,true,true,"个",CurrentPage$$xxxx_d_soft_complie$$rnd$)
%>
</td>
</tr>
<%end if
%>$$xxxx_d_soft_complie$$hhend$